home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format CD 44 / Amiga Format CD44 (1999-08-26)(Future Publishing)(GB)(Track 1 of 3)[!][issue 1999-10].iso / -in_the_mag- / basics / amos / intuiextend20b.lha / distribution / exemples / CircleSpeed.asc < prev    next >
Text File  |  1980-03-10  |  652b  |  33 lines
  1. '**************************************
  2. '                                     *
  3. '     IntuiExtend.Lib 2.0/@1995-98    *
  4. '                                     *
  5. '          by CIERP Philippe.         *
  6. '                                     *
  7. '          from AMIGAzette 83         *
  8. '                                     *
  9. '**************************************
  10. '
  11. ' Command
  12. '  -Wb Circle
  13. '
  14. A=Amos Rastport
  15. EE=Execall(-132)
  16. CX=48 : CY=100 : R=50
  17. Ink 0
  18. Timer=0
  19. For T=1 To 221
  20.    Ink T
  21.    Wb Circle T+CX,CY,R
  22. Next T
  23. Print "IntuiExtend:";Timer
  24. Ink 2
  25. Timer=0
  26. For T=1 To 221
  27.    Ink T
  28.    Circle T+CX,CY,R
  29. Next T
  30. Print "       Amos:";Timer
  31. EE=Execall(-138)
  32. End 
  33.